home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / swanson / splash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-06  |  2.9 KB  |  105 lines
  1. VERSION 2.00
  2. Begin Form Splash 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   3975
  6.    ClientLeft      =   2490
  7.    ClientTop       =   3690
  8.    ClientWidth     =   7740
  9.    Height          =   4380
  10.    Left            =   2430
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   SPLASH.FRX:0000
  13.    ScaleHeight     =   3975
  14.    ScaleWidth      =   7740
  15.    Top             =   3345
  16.    Width           =   7860
  17.    Begin Label Label2 
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "100%"
  20.       Height          =   225
  21.       Index           =   1
  22.       Left            =   7035
  23.       TabIndex        =   2
  24.       Top             =   3045
  25.       Width           =   465
  26.    End
  27.    Begin Label Label2 
  28.       BackStyle       =   0  'Transparent
  29.       Caption         =   "0%"
  30.       Height          =   225
  31.       Index           =   0
  32.       Left            =   2835
  33.       TabIndex        =   1
  34.       Top             =   3045
  35.       Width           =   345
  36.    End
  37.    Begin Label Label1 
  38.       Alignment       =   2  'Center
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "Load Status..."
  41.       Height          =   240
  42.       Left            =   4605
  43.       TabIndex        =   0
  44.       Top             =   3045
  45.       Width           =   1215
  46.    End
  47.    Begin Line Line2 
  48.       BorderColor     =   &H00FFFFFF&
  49.       BorderWidth     =   2
  50.       Index           =   1
  51.       X1              =   7500
  52.       X2              =   7500
  53.       Y1              =   2550
  54.       Y2              =   2970
  55.    End
  56.    Begin Line Line1 
  57.       BorderColor     =   &H00FFFFFF&
  58.       BorderWidth     =   2
  59.       Index           =   1
  60.       X1              =   7500
  61.       X2              =   2835
  62.       Y1              =   2955
  63.       Y2              =   2970
  64.    End
  65.    Begin Line Line2 
  66.       BorderColor     =   &H00808080&
  67.       BorderWidth     =   2
  68.       Index           =   0
  69.       X1              =   2850
  70.       X2              =   2850
  71.       Y1              =   2520
  72.       Y2              =   2940
  73.    End
  74.    Begin Line Line1 
  75.       BorderColor     =   &H00808080&
  76.       BorderWidth     =   2
  77.       Index           =   0
  78.       X1              =   7500
  79.       X2              =   2835
  80.       Y1              =   2520
  81.       Y2              =   2535
  82.    End
  83.    Begin Shape rctStatusBar 
  84.       BackColor       =   &H00800000&
  85.       BackStyle       =   1  'Opaque
  86.       BorderStyle     =   0  'Transparent
  87.       Height          =   340
  88.       Left            =   2880
  89.       Top             =   2585
  90.       Width           =   15
  91.    End
  92. Option Explicit
  93. Dim iStatusBarWidth As Integer
  94. Sub Form_Click ()
  95.     Unload Me
  96. End Sub
  97. Sub Form_Load ()
  98.   'Center the splash screen
  99.   Me.Left = (screen.Width - Me.Width) / 2
  100.   Me.Top = (screen.Height - Me.Height) / 2
  101. End Sub
  102. Sub Panel3D1_DblClick ()
  103.     Unload Splash
  104. End Sub
  105.